home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / fido / addfile.lha / AddFile.spot
Text File  |  1995-09-20  |  4KB  |  150 lines
  1. /*
  2.  
  3.    Addflow 1.0 by Mat Bettinson of the Plot Hatching Factory
  4.  
  5.            1.1 Converted to run from Spot by Anthony Brice
  6.  
  7.                      anthony@backyard.demon.co.uk
  8.  
  9. Awesome additions
  10. -----------------
  11. Optional send to listed systems with a file requestor highlighting #?O
  12.   files in the outbound Directory
  13.  
  14. All the actions can now be aborted. Dunno how I missed that before.
  15.  
  16. All done with requestors as normal. Lot easy than a cli command with args.
  17.  
  18. Won't trash any flo packets due to silly errors like me using close(blah) 
  19.   instead of Call close(blah).. Wondered why I had all those probs ;)
  20.  
  21. */
  22.  
  23. ver=1.1
  24. CR='0d'X
  25. filedefault = 'File:'
  26. Outbound = 'Xout:'
  27.  
  28. ADDRESS spot
  29. OPTIONS results
  30.  
  31. IF ~EXISTS('LIBS:rexxsupport.library') THEN DO
  32.   'requestnotify "So where's the rexxsupport.library?"'
  33.   exit
  34.   END
  35. CALL ADDLIB('rexxsupport.library',0,-30,0)
  36.  
  37. IF ~EXISTS('LIBS:rexxreqtools.library') THEN DO
  38.   'requestnotify "And where's the rexxreqtools.library gone?"'
  39.   exit
  40.   END
  41. CALL ADDLIB('rexxreqtools.library',0,-30,0)
  42.  
  43. temp='Yet another nifty Zeus UK alliance Spot script'||CR||CR
  44. temp=temp'Netmail-ware as usual.'||CR||CR
  45. temp=temp'2:254/205.0 - Mat Bettinson'||CR
  46. temp=temp'2:254/255.0 - Anthony Brice'||CR
  47. 'requestresponse TITLE "Addfile '||ver||' By Anthony Brice and Mat Bettinson" PROMPT "'||TEMP||'" GADGETS "_Send file|_About|_ABORT" center'
  48. if rc=0 then do
  49.   exit
  50.   end
  51. if rc=2 then do
  52.   call about
  53.   exit
  54.   end
  55.  
  56. 'requestresponse TITLE "System selection" PROMPT "What system do you wish to attach to?" GADGETS "_Unlisted|_Requestor|_Abort" CENTER'
  57.  
  58. if rc=0 then do
  59.   exit
  60.   end
  61.  
  62. if rc=1 then do
  63.   'requeststring TITLE "Poll" PROMPT "Which nodenumber?" CENTER'
  64.   system=result
  65.   if system=0 then exit
  66.   system=strip(system)
  67.   end
  68.  
  69. if rc=2 then do
  70.   'requestfile TITLE "Select the systems address" PATTERN "#?.**O" PATH '||outbound
  71.   if result=0 then exit
  72.   crap=substr(result,6,11," ")
  73.   system=strip(crap)
  74.   end
  75.  
  76. 'requestfile TITLE "Select a file to send" PATH '||filedefault
  77. file=result
  78. if file=0 then exit
  79. file=strip(file)
  80. If ~EXISTS(File) then DO
  81.   'requestnotify PROMPT "That file does not exist!"'
  82.   EXIT
  83.   END
  84.  
  85. 'requestresponse TITLE "Delete file" PROMPT "Delete after send?" GADGETS "_Yes|_No|_Abort" CENTER'
  86. DC = ''
  87. if rc=0 then do
  88.   exit
  89.   end
  90. If rc=1 then do
  91.   DC = '^'
  92.   end
  93.  
  94. temp = translate(system,' ',':/.')
  95. Parse Var temp zone net node point
  96. point=strip(point)
  97. system = translate(system,"..",":/")
  98. If point = '' then DO
  99.  system=system'.0'
  100.  END
  101.  
  102. new = 0
  103. IF exists(outbound||system'.HLO') then flowfile = system'.HLO'
  104. ELSE IF exists(outbound||system'.DLO') then flowfile = system'.DLO'
  105. ELSE IF exists(outbound||system'.CLO') then flowfile = system'.CLO'
  106. ELSE IF exists(outbound||system'.FLO') then flowfile = system'.FLO'
  107. ELSE DO 
  108.  flowfile = system'.FLO'
  109.  new = 1
  110.  END
  111. If new = 0 then do
  112.   temp = translate(File,"  ",":/")
  113.   FName = upper(word(temp,words(temp)))  
  114.   call Open(chk,Outbound||flowfile,'R')
  115.   Do Forever
  116.     in = upper(readln(chk))
  117.     if eof(chk) then break
  118.       If Index(in,Fname) ~= 0 then DO
  119.         'requestnotify PROMPT "Error that file is already listed to send" Center'
  120.       EXIT
  121.       END
  122.     END
  123.   Call Close(chk)
  124.   Call Open(crap,Outbound||flowfile,'A')
  125.   end
  126. if new = 1 then do
  127.   Call Open(crap,Outbound||flowfile,'W')
  128.   end
  129. call WriteLN(crap,DC||file)
  130. Call Close(crap)
  131. 'requestnotify PROMPT "File added to the waiting packet" CENTER'
  132. EXIT
  133.  
  134. About:
  135. temp=''
  136. temp=temp'Addfile for Spot by Anthony Brice and Mat Bettinson'||CR||CR
  137. temp=temp'Add a file to FLO,HLO,CLO and DLO packets '||CR
  138. temp=temp'which are waiting to be sent to downlinks '||CR
  139. temp=temp'from your BBS system. Basically knocked up'||CR
  140. temp=temp'as a quick way to send a file to a node or'||CR
  141. temp=temp'point from your system if your filefreq is'||CR
  142. temp=temp'up the creek, or you want to make life very'||CR
  143. temp=temp'easy for yourself ;)'||CR||CR
  144. temp=temp'All the hard graft arexx was done by Mat, and'||CR
  145. temp=temp'being a lazy Git, Anthony converted it to'||CR
  146. temp=temp'run from Spot with a lazy mans idea of GUI'||CR||CR
  147. 'requestnotify PROMPT "'||TEMP||'" center'
  148. return
  149.  
  150.